home *** CD-ROM | disk | FTP | other *** search
/ System Booster / System Booster.iso / SYS / s / NextParagraph.bed < prev    next >
Text File  |  1996-09-26  |  468b  |  46 lines
  1. /*
  2. ** $VER: NextParagraph.bed 1.0 (06.01.96)
  3. **
  4. ** Move the cursor to the start of the next paragraph
  5. */
  6.  
  7. OPTIONS RESULTS
  8.  
  9. str = ' ' || '09'X
  10.  
  11. SetLockInput ON
  12. SetLockDisplay ON
  13.  
  14. MoveSOL
  15.  
  16. DO FOREVER
  17.  
  18.     GetLine
  19.     IF COMPRESS(RESULT,str) = "" THEN BREAK
  20.  
  21.     MoveDown
  22.  
  23.     IF RC ~= 0 THEN DO
  24.         MoveEOL
  25.         EXIT
  26.     END
  27.  
  28. END
  29.  
  30. DO FOREVER
  31.  
  32.     GetLine
  33.     IF COMPRESS(RESULT,str) ~= "" THEN BREAK
  34.  
  35.     MoveDown
  36.  
  37.     IF RC ~= 0 THEN DO
  38.         MoveEOL
  39.         EXIT
  40.     END
  41.  
  42. END
  43.  
  44. SetLockInput OFF
  45. SetLockDisplay OFF
  46.